home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / me_cd22.zip / MC2MUTT.ZIP / ACKERMAN.MUT < prev    next >
Lisp/Scheme  |  1992-04-27  |  205b  |  13 lines
  1.     ; Ackerman's function
  2.  
  3. (defun A (int x y)
  4. {
  5.   (case
  6.     (== x 0) (+ y 1)
  7.     (== y 0) (A (- x 1) 1)
  8.     TRUE (A (- x 1) (A x (- y 1)))
  9.   )
  10. })
  11.  
  12. (msg (A (atoi (ask "x = "))(atoi (ask "x = "))))
  13.